home *** CD-ROM | disk | FTP | other *** search
/ Macromedia Multimedia Showcase 6.0 / Macromedia Multimedia Showcase v6.0 WIN-MAC (XMSH60CD)(Macromedia, Inc.)(1996).iso / pc / demosoft / freehand / data.5 / App / Usenglsh / lang8.dll / POST / 1069 < prev    next >
Text File  |  1996-10-03  |  922b  |  28 lines
  1. /textopf false def
  2. /curtextmtx{}def
  3. /otw .25 def
  4. /msf{dup/curtextmtx xdf makefont setfont}bdf
  5. /makesetfont/msf load def
  6. /curtextheight{.707104 .707104 curtextmtx dtransform
  7. dup mul exch dup mul add sqrt}bdf
  8. /ta2{                            
  9. tempstr 2 index gsave exec grestore        
  10. cwidth cheight rmoveto                
  11. 4 index eq{5 index 5 index rmoveto}if        
  12. 2 index 2 index rmoveto            
  13. }bdf
  14. /ta{exch systemdict/cshow known
  15. {{/cheight xdf/cwidth xdf tempstr 0 2 index put ta2}exch cshow}    
  16. {{tempstr 0 2 index put tempstr stringwidth/cheight xdf/cwidth xdf ta2}forall}    
  17. ifelse 6{pop}repeat}bdf
  18. /sts{/textopf currentoverprint def vc setoverprint
  19. /ts{awidthshow}def exec textopf setoverprint}bdf
  20. /stol{/xt currentlinewidth def     
  21. setlinewidth vc newpath    
  22. /ts{{false charpath stroke}ta}def exec
  23. xt setlinewidth}bdf    
  24. /strk{/textopf currentoverprint def vc setoverprint
  25. /ts{{false charpath stroke}ta}def exec
  26. textopf setoverprint
  27. }bdf